TPUG - Toronto PET Users Group/TPUG Users Group CD/TPUG Users Group CD.iso/C64/T-TPUG Old Monthly Disks/(c)t5.d64/definition.c

Commodore BASIC | 2009-10-10 | 23KB | 478 lines

1 REM                 *** D E F I N I T I O N ***
2 DIMA$(500,2):DIMA(500):POKE53281,7:S=54272:POKE53280,10:CO=55296-1024:Q=1
15 :POKES+4,21:GOSUB3000
16 PRINT"[147][144]"TAB(9)" D E F I N I T I O N [146]"
19 PRINT" YOUR COMMODORE 64 WILL HAVE A SELECTION"
20 PRINT" OF"Q" DIFFERENT DEFINITIONS"
25 READA$(Q,1),A$(Q,2):IFA$(Q,1)="EOF"THENQ=Q-1:GOTO50
30 Q=Q+1:IFQ>500THENQ=500:GOTO50
40 N=RND(1):GOTO20
50 PRINT"[147][144]"TAB(9)" D E F I N I T I O N [146]"
51 PRINT" YOUR COMMODORE 64 WILL HAVE A SELECTION OF"Q" DIFFERENT DEFINITIONS"
55 FORT=1TO500:A(T)=1:NEXT
60 PRINT"1.PLAYERS NAME":INPUTP1$:PRINT"2.PLAYERS NAME":INPUTP2$
61 PRINT"HOW MANY QUESTIONS WOULD YOU LIKE":INPUTK%
62 IFLEN(P1$)>8ORLEN(P2$)>8THEN65
63 IFK%>QTHENPRINT" NUMBER CAN'T BE LARGER THAN";Q:FORT=1TO3500:NEXT:GOTO50
64 GOTO70
65 PRINT"NAME CAN NOT BE MORE THAN 8 LETTERS LONG":FORT=1TO3000:NEXT:GOTO50
70 PRINT"[147][144]"TAB(9)" D E F I N I T I O N [146]"
100 FORT=1TO26:POKE1949+T,T:POKE1949+T+CO,0:NEXT
105 N=INT(Q*RND(1)+1):CT=0:K=0:X=1:IFA(N)<>1THEN105
106 A(N)=2:QK=QK+1:IFQK=QTHENPRINT"YOU USED ALL DEFINITIONS":END
107 GOSUB6010:IFT<>1THEN120
110 PRINT"[149]  HINT [146][144] ";A$(N,1)
120 L=LEN(A$(N,2))
130 PRINT"[158]";TAB((40-L)/2)A$(N,2)
140 P=1784:FORT=0TO40:IFPEEK(P+T)<>32THENPOKEP+T+40,45:POKEP+CO+40+T,0:CT=CT+1
150 NEXT
199 J=INT((1+1)*RND(1)):IFJ=1THEN201
200 U=0:J=J+1:J$=P1$:GOTO204
201 U=0:J=J+1:J$=P2$
204 L=LEN(J$):PRINT"[144]";TAB((40-L-19)/2)J$;" GIVE AWAY A LETTER":Z=1
205 TI$="000000"
208 PRINT"[149]";TAB(16)"TIME ";RIGHT$(TI$,2)
209 IFINT(TI/60)=>10THENONJGOSUB600,601:GOTO247
210 GETG$:IFG$=""THEN208
212 IFU=1THENPRINT"[144]"TAB(14)"I TAKE A *";G$;"*":Z=2:GOTO220
215 PRINT"[144]"TAB(12)"I GIVE AWAY A *";G$;"*"
220 Y=0:G=ASC(G$)-64:P=1949:FORT=1TO26:IFPEEK(P+T)=GTHENPOKEP+T,32:Y=Y+1:GOSUB650
222 NEXT:IFY=0THENPRINTTAB(6)"SORRY *";G$;"* IS ALLREADY TAKEN":GOSUB579:ONZGOTO204,250
230 C=0:P=1784:FORT=0TO40:IFPEEK(P+T)=GTHENGOSUB550
240 NEXT:IFC<>0ANDU=1THENGOTO260
241 IFU=0ANDC=OTHENPRINTTAB(10)"RIGHT THERE IS NO *";G$;"*":GOTO250
242 IFU=1ANDC=0THENPRINTTAB(10)"SORRY THERE IS NO *";G$;"*":GOTO247
243 IFU=0ANDC<>0THEN:PRINTTAB(11)"SORRY WE HAVE";C;"*";G$;"*":GOSUB579:IFK=CTTHEN360
244 IFJ=1THENJ$=P2$:J=3:GOTO270
245 J$=P1$:J=3:GOTO270
247 GOSUB580
248 IFJ=2THENJ=0:GOTO200
249 GOTO201
250 GOSUB580:PRINT"[144]"TAB((40-L-14)/2)J$" TAKE A LETTER ":U=1:GOTO205
260 PRINTTAB(12)"YES WE HAVE";C;"*";G$;"*":GOSUB579:K=K+C:IFK=CTTHEN360
270 PRINT"[144]";TAB((40-L-28)/2)J$" DO YOU WANT TO GUESS ? (Y,N)"
275 TI$="000000"
280 PRINT"[149]";TAB(16)"TIME ";RIGHT$(TI$,2)
290 IFINT(TI/60)=>10THENONJGOSUB600,601,605:ONXGOTO247,350
300 GETM$:IFM$<>"Y"ANDM$<>"N"THEN280
305 IFM$="N"THENONXGOTO247,350
310 GOSUB585: PRINT"[144]":INPUTQ$:IFLEN(Q$)>37THEN355
315 PRINT"[149]";TAB(16)"TIME ";RIGHT$(TI$,2)
316 IFINT(TI/60)>=45THENONJGOSUB600,601,605:ONXGOTO247,350
318 IFQ$<>A$(N,2)THENPRINT""TAB(10)"[144]SORRY YOU ARE WRONG":ONXGOTO247,350
320 PRINT"[144]"TAB((40-L-11)/2)"YOU GOT IT ";J$:GOTO360
350 GOSUB580:X=1:IFJ$=P1$THENJ=0:GOTO200
352 X=1:J=1:GOTO201
355 PRINT" ANSWER CAN NOT BE MORE THAN 37 LETTERS"
356 PRINT"YOUR OPPONENT WILL GET 50 POINTS BE MORECAREFULL NEXT TIME"
357 IFJ$=P1$THENJ2%=J2%+50:FORT=1TO4500:NEXT:GOTO70
358 J1%=J1%+50:FORT=1TO3500:NEXT:GOTO70
360 FORT=1TO3500:NEXT:GOSUB2000:IFK%=0THEN365
361 GOTO70
365 FORT=1TO4000:NEXT:PRINT"[144]"TAB(14)" GAME  OVER [146]"
370 PRINT"[144]  PRESS *C* TO CONTINUE OR *S* TO STOP"
380 GETA$:IFA$<>"C"ANDA$<>"S"THEN380
390 IFA$="S"THEN400
392 PRINT"[147][144]"TAB(9)" D E F I N I T I O N [146]"
393 PRINT" HOW MANY QUESTIONS WOULD YOU LIKE":INPUTK%:J1%=0:J2%=0:GOTO70
400 END
550 C=C+1:FORTJ=0TO24:POKES+TJ,0:NEXT:POKES+1,130:POKES+5,9:POKES+15,30:POKES+24,15:POKES+4,21
560 POKEP+CO+T,0:FORTJ=1TO1200:NEXT:POKES+4,20:RETURN
579 FOR T=1TO3000:NEXT:IFU=0ANDC<>0THENK=K+C:X=X+1:IFX>2THENX=2
580 P=1064:FORT=0TO3*40:POKEP+T,32:NEXT
581 P=1304:FORT=0TO8*40:POKEP+T,32:NEXT:POKE198,0:RETURN
585 P=1504:FORT=0TO7*40:POKEP+T,32:NEXT:POKE198,0:RETURN
600 PRINTTAB((40-LEN(P1$)-LEN(P2$)-21)/2)"TIME EXPIRED "P1$" "P2$"'S TURN[144]":GOTO610
601 PRINTTAB((40-LEN(P1$)-LEN(P2$)-21)/2)"TIME EXPIRED "P2$" "P1$"'S TURN[144]":GOTO610
605 PRINTTAB(14)"TIME EXPIRED[144]"
610 FORTJ=1TO24:POKES+TJ,0:NEXT:POKES+1,20:POKES+5,9:POKES+6,9:POKES+24,15:POKES+4,17
615 FORTJ=1TO1200:NEXT:POKES+4,16:FORTJ=1TO2000:NEXT
620 RETURN
650 FORTJ=1TO24:POKES+TJ,0:NEXT:POKES+1,180:POKES+5,9:POKES+15,30:POKES+24,15:POKES+4,21
655 FORTJ=1TO1000:NEXT:POKES+4,20:RETURN
800 PRINT"[147][144]"TAB(9)" D E F I N I T I O N [146]"
810 PRINTTAB(5)"  B O N U S  Q U E S T I O N  [145]"
830 FORT=1TO26:POKE1949+T,T:POKE1949+T+CO,0:NEXT:SC=260
840 N=INT(Q*RND(1)+1):IFA(N)<>1THEN840
850 A(N)=2:QK=QK+1:IFQK=QTHEN360
855 GOSUB6010:IFT<>1THEN870
860 PRINT"[149]  HINT [146][144] ";A$(N,1)
870 L=LEN(A$(N,2))
890 PRINT"[158]";TAB((40-L)/2)A$(N,2):CT=0
900 P=1784:FORT=0TO40:IFPEEK(P+T)<>32THENPOKEP+T+40,45:POKEP+CO+40+T,0:CT=CT+1
910 NEXT:POKE198,0:AT=1:C=0
915 PRINT""TAB(25)"    ":SC=SC-10:PRINT"[144]"TAB(12)"BONUS POINTS";SC
920 GETX$:IFX$=CHR$(133)THEN950
930 FORTJ=1TO24:POKES+TJ,0:NEXT:POKES+1,180:POKES+5,9:POKES+15,30:POKES+24,15:POKES+4,21
935 POKE1949+AT,32:FORTJ=1TO1000:NEXT:POKES+4,20
940 P=1784:FORT=0TO40:IFPEEK(P+T)=ATTHENGOSUB550
945 NEXT:AT=AT+1:IFAT>26THENRETURN
946 IFC=CTTHENSC=0:RETURN
949 GOTO915
950 PRINT"[144]":INPUTQ$:IFLEN(Q$)>37THENSC=0:RETURN
960 IFQ$<>A$(N,2)THENPRINT""TAB(10)"[144]SORRY YOU ARE WRONG":GOTO965
962 GOTO970
965 GOSUB581:GOTO915
970 PRINT"[144]"TAB((40-LEN(J$)-11)/2)"YOU GOT IT ";J$:RETURN
1000 DATAA CERTAIN UNDERGARMENT FOR A CERTAIN ANIMAL,Z BRA
1001 DATAWHAT CANAPES ARE TO NUDE BATHERS IN A STREAM,BROOK SHIELDS
1002 DATATHE MOUNTAIN WORE ONE,AN ICE CAP
1003 DATAWHY HOUDINIE WAS SUCCESSFUL,HE LEARNED THE ROPES
1004 DATAOVER EXUBERANCE IN THE HEN HOUSE,FOWL PLAY
1005 DATAWHAT THE DECISION TO LOG IN THE FOREST RESERVE RAISED,A HEW AND CRY
1006 DATAANGRY AT BEING DISINHERITED IN APRIL,MAD AS A MARCH HEIR
1007 DATARAINING DIMES NICKELS AND QUARTERS,A CHANGE IN THE WEATHER
1008 DATAWHAT PEOPLE WHO WEAR SHORT SLEEVES CAN'T DO,MAKE OFF THE CUFF REMARKS
1009 DATATODDLERS IN SWIMMING POOLS,LITTLE DIPPERS
1010 DATAWHAT YOU GET FROM EATING TOO MUCH FROZEN FOOD,FROST BITE
1011 DATAHUMPTY DUMPTY'S FALL,AN EGG ROLL
1012 DATAHOW THE SERGEANT STOPPED THE UNINVITED GUESTS,COMPANY HALT
1013 DATABEING ATTACKED BY A CERTAIN GEOMETRIC FIGURE,A VICIOUS CIRCLE
1014 DATATHE JOB AFTER A DECEMBER SNOW STORM,JANUARY CLEARANCE
1015 DATAWHAT HAPPENED WHEN THE ELEPHANT LAID DOWN TO REST,THE BED SPREAD
1016 DATAA MOTHER WHO DOESN'T PLAY FAVORITES,LIKE FATHER LIKE SON
1017 DATAFRESH WATER DUCKS,UNSALTED QUACKERS
1018 DATAWHAT AN UNEMPLOYED CUSTOMS OFFICER IS,DUTY FREE
1019 DATAWHY HE BOUGHT SO MUCH LAND,IT WAS DIRT CHEAP
1020 DATAWHY MUSK IS USED AS A PURFUME BASE,IT MAKES GOOD SCENTS
1021 DATAWHAT THE SICK FORECASTER WAS,UNDER THE WEATHER
1022 DATABUYING THE HOME RIGHT AWAY,LOVE AT FIRST SITE
1023 DATAA CERTAIN CARD GAME OF THE HOOK AND LADDER COMPANAY,FIRE PLACE POKER
1024 DATAWHAT THE SCULPTOR HAD TO FACE,A MONUMENTAL TASK
1025 DATAWHAT CONCEITED METEOROLOGISTS ARE,WEATHER VAIN
1026 DATAFLIPPING PANCAKES FOR YOUR TEAMS BREAKFAST,BATTER UP
1027 DATAHOW TO PUNISH THE BARE FOOT BOY,BOOT HIM
1028 DATAA TOPSY TURVY DESSERT,AN UPSIDE DOWN CAKE
1029 DATAA CERTAIN DEBBY'S MINK STOLE,REYNOLDS WRAP
1030 DATAA LONG ROW OF KILNS,A FIRING SQUAD
1031 DATAHOW TO MEASURE PARTS OF THE OCEAN,YOU RULE THE WAVES
1032 DATAPICKING UP A CERTAIN UTENSIL,A FORK LIFT
1033 DATADO STICKS FLOAT,THEY WOOD
1034 DATASIMILARITY BETWEEN DESTINY AND DIET,BOTH SHAPE OUR ENDS
1035 DATAADAM BEFORE EVE,FIRST PERSON SINGULAR
1036 DATAWHAT A CERTAIN CAT WAS DOING ON A HOT DAY,JUST LION AROUND
1037 DATAWHAT THE RETIRED SALESMAN WAS,OUT OF COMMISSION
1038 DATAWHY ORVILLE AND WILBUR SIGNED THE FIRST AIRPLANE PATENT
1039 DATATHE PRICE WAS WRIGHT
1040 DATAPOURING LIQUID FROM A LARGE CONTAINER INTO A SMALLER ONE
1041 DATAWHAT FUNNEL THAT BE
1042 DATAA SKUNK RIDING ON THE BACK OF A CAR,A BUMPER STINKER
1044 DATAGIVING QUICK ANSWERS TO CERTAIN ARITHMETIC PROBLEMS,ADD LIBBING
1045 DATAENTERING A GLOVE IN A RACE,RUNNING THE GAUNTLET
1046 DATAWHAT YOUR MISSING PET PIG IS,A PORK YOU PINE
1047 DATAA SKINNY MOUSE,A NARROW SQUEAK
1048 DATAWHY THE FAMILY MOVED INTO THE GLUE FACTORY,TO STICK TOGETHER
1049 DATATHE PERSON WHO RUNS THE PRESS AT THE CLEANERS,AN IRON WORKER
1050 DATAWHAT THE SHORT FIGURE SKATER WANTED TO BE,TOLLER THAN CRANSTON
1051 DATAHEAVY ORIENTAL APPETIZER,ONE TON SOUP
1052 DATAA CERTAIN VEGETABLE LEADER,HEAD OF CABBAGE
1053 DATASITE FOR BARBECUE LOVERS,THE GRATE OUTDOORS
1054 DATAA PILLOW,HEADQUARTERS
1055 DATACHINESE COOKING IN THE FOREST,WOK IN THE WOODS
1056 DATAWHAT ANIMAL SHOULD NEVER PLAY CARDS,A CHEETAH
1057 DATAHOW FAR IT IS TO THE ATHLETIC FIELD,A HOP A SKIP AND A JUMP
1058 DATAA SWING AROUND IN FASHION,TURN STYLE
1059 DATAA NURSE NAMED KATHRYN,A FIRST AID KIT
1060 DATADRY DOCK FOR A CERTAIN NAVAL CRAFT,SUB TRACTION
1061 DATARECRUITING SLOGAN FOR THE NAVY,SEAS THE OPPORTUNITY
1062 DATAWHAT THE DRUNK PREHISTORIC WOMAN WAS,STONED AGAIN
1063 DATAHOW THE CITY KEPT THE AIR CLEAN,WITH SKYSCRAPERS
1064 DATAA STARCHY PIECE OF CLOTH,A FLOUR PATCH
1065 DATAWHY HE WAS HAPPY AFTER BUYING AN ACRE IN THE COUNTRY,IT MEANT A LOT TO HIM
1066 DATAA FISHY RELATIVE,A SOLE SISTER
1067 DATAWHAT JIM PERRY SAID TO THE NEWLY CROWNED MISS CANADA,G U R A Q T
1068 DATAFROST BITTEN,COLD SORE
1069 DATATHE LOCKSMITH JOB MARKET,THINGS ARE OPENING UP
1070 DATAFOOD SERVED ON AN AIRPLANE,CRAFT DINNER
1071 DATAARTISIAN WATER,WELL BROUGHT UP
1072 DATAWHAT THE RECOOPERATING OPTITIAN WAS,LOOKING BETTER
1073 DATABADMINTON PLAYERS DELIGHT,A SUDDEN WINDFALL
1074 DATAGIVING AWAY CANDY,SWEET CHARITY
1075 DATASPYING SOVIET INSECT,CAGEY BEE
1076 DATATHE FREELOADERS FAVORITE CAKE,SPONGE
1077 DATAELIMINATING SALT FROM THE DIET,COURSE I CAN
1078 DATAWHAT SOCKS WITH MANY HOLES ARE,NOT WORTH A DARN
1079 DATAHOW TO GET RID OF ANTS,PUT YOUR FOOT DOWN
1080 DATAWHY THE MOONSHINER COULDN'T GO BACK TO WORK,HE WAS STILL SICK
1081 DATAWHAT THE FISHERMAN WAS CHARGED WITH,HARBOURING CRIMINALS
1082 DATASTORY ABOUT AN AMAZON WARRIOR,SOME TALL TALE
1083 DATAWHAT A FAT FOOL WEIGHS,A SIMPLE TON
1084 DATATHE LOCHS MONSTER SMILED,HAPPY NESS
1085 DATAHOW THE MOTHER SUMMONED HER TWINS,COME HERE ON THE DOUBLE
1086 DATAA FORMER U S PRESIDENT'S CURSE,HOOVER DAM
1087 DATAWHAT A TIRED BABY WOULD BE LOOKING FOR,A PICK ME UP
1088 DATAWHY THE CATTLE WERE SAD,THEY ATE BLUE GRASS
1089 DATAWHY ARCHERY ISN'T THE PERFECT SPORT,IT HAS DRAWBACKS
1090 DATAWHAT A SHOE STORE ROBBER IS,AN ARCH CRIMINAL
1091 DATASPRING CLEANING A CERTAIN COUNTRY,AIR CANADA
1092 DATAFLYING TO OTTAWA TO SEE THE PRIME MINISTER,C P AIR
1093 DATAFORTUNE TELLERS LOLLIPOP,SEER SUCKER
1094 DATAHIT THE ROAST OF MUTTON,GIVE IT A LAMB BASTING
1095 DATAWHAT THE GRAND CANYON IS,JUST GORGES
1096 DATAREGULATION OF A DIGIT,RULE OF THUMB
1097 DATAFUNNY MAN RUNS AWAY,COMICS TRIP
1098 DATAWHAT THE TIGHT ROPE USED TO KEEP SLIM AND TRIM,A BALANCED DIET
1099 DATASECRETLY RETURNING A STOLEN COIN,QUARTER BACK SNEAK
1100 DATASHE HAD A SUPREME COURT FIGURE,NO APPEAL
1101 DATAA HUNTING HEADGEAR,A STALKING CAP
1102 DATAALL DAY MAKING STRAWBERRY PRESERVES,HAVING A JAM SESSION
1103 DATAMINISTERS GOLF APPARATUS,D D TEE
1104 DATAWHAT TEMPERAMENTAL VOLCANOES DO,VENT THEIR ANGER
1105 DATASMOKING WHILE PLAYING IN THE BAND,PIPE AND DRUMS
1106 DATAWHAT A DOGS TONGUE IS,THE SEAT OF HIS PANTS
1107 DATAWHAT THE CENSUS TAKERS SAID TO THE LADY WITH CHILDREN AGED 1 3 5 7 9
1108 DATAHOW VERY ODD
1109 DATAHOW THE LITTLE BOY DESCRIBED HIS SISTER,MY NEXT OF SKIN
1110 DATANAPOLEON'S NATIONALITY OF BIRTH,COURSE I CAN
1111 DATALAS VEGAS BARBER SHOP,SCISSORS PALACE
1112 DATAWRITING WITH A DULL PENCIL,A POINTLESS ENDEAVOUR
1113 DATATHE CALAMITY OF THE 3 EGGS,TWO BAD
1114 DATAA FEMALE KOREAN HORSE,A FILLY OF SEOUL
1115 DATAWHAT BARBERING IS TO A PROFFESSIONAL,HIS MANE JOB
1116 DATAWHY 2 STRANGERS WENT DUCK HUNTING,THEY HAD A BLIND DATE
1117 DATANOT WEARING THEIR MASKS TO BAD,BARE FACED LIARS
1118 DATAGOLD DIGGER,A HUMAN GIMMEE PIG
1119 DATAHOW THE COCKNEY WENT TO HIS WEDDING,E LOPED
1120 DATABABY TWINS,TWO CLOSE FOR COMFORT
1121 DATAGRAFITTI ARTIST,WALL NUT
1122 DATAWHAT KATHLEEN'S MOM SAID WHEN HER DAUGHTER TOLD HER SHE WAS ELOPING
1123 DATAOH KAY
1124 DATATWO CERTAIN TALL MEN,A PAIR OF LONG JOHNS
1125 DATAWHO THE TEACHER KEPT HIS EYE ON,A CERTAIN PUPIL
1126 DATAWHAT THE BOWLING ALLEY WAS ON CHILDREN'S DAY,SAFETY PINS
1127 DATAWHAT A THIRSTY RACING DOG HAS TO DO,WIN THE LAST LAP
1128 DATAA POOR CRAZY POET,NO RHYME NOR REASON
1129 DATAMILD PUNISHMENT,LIGHT SWITCH
1130 DATAA MERMAID'S MATE,A MUSSEL MAN
1131 DATAWHAT DUELISTS HAVE,SWORDED PASTS
1132 DATAWHAT THE HAIRDRESSER IN THE UPSTAIRS SALON WANTS,A CUT ABOVE THE OTHERS
1133 DATAFOREMAN ON A HIGHWAY CREW,A ROADS CALLER
1134 DATAFIND LAND WITH YOUR BEST BUDDY,A FRIEND IN DEED
1135 DATAWHY THE FEMALE ELECTRICIAN NEVER HAS A PERM,SHE GETS SHOCK WAVES
1136 DATAWHERE SIR LANCELOT STUDIED,AT KNIGHT SCHOOL
1137 DATAHIGH CLASS PASTRY,UPPER CRUST
1138 DATABEST LOAF SHE EVER BAKED,THOROUGH BREAD
1139 DATAA REASON FOR JOINING A CLUB FOR TALL PEOPLE,IT IS GOOD TO BE LONG
1140 DATAHUMILIATED BY BIG PEOPLE,BE FELT SMALL
1141 DATARECIPE FOR A GOOD SPEECH,ADD SHORTENING
1142 DATAWHY THE LUMBERMAN WOULDN'T DANCE,HE HAD BORED FEET
1143 DATAWHAT THE EGYPTIAN MUMMY SAID TO THE BARTENDER,I JUST CAME IN TO UNWIND
1144 DATAA CERTAIN SPECIFIC SPICE,SAGE BRUSH
1145 DATAWHAT YOU NEED TO REMEDY A SPACE PROBLEM,A WAY OUT SOLUTION
1146 DATABEING RELATED TO THE BOSS,FIRE PROOF
1147 DATAWHAT A BABY MERMAID IS,A SEA URCHIN
1148 DATAPLAYING PING PONG IN A CHURCH STEEPLE,BATS IN THE BELLFRY
1149 DATAA VEGETARIAN HUNTER,A PEA SHOOTER
1150 DATAWHY THE FARMER THREW OUT CERTAIN CROPS,THEY WHERE DEAD BEETS
1151 DATAJEWELS THAT MIGHT BE FOUND IN THE OCEAN,AQUAMARINES
1152 DATAA CERTAIN MEXICAN WORKER,MANUEL LABOUR
1153 DATAWHAT GARDENERS DO FOR PROMOTION,PASS OUT LEAFLETS
1154 DATAWHAT A MAN WINS ON DEFINITION,A SIR PRIZE
1155 DATALAW AND ORDER IN THE FAR NORTH,POLE ICE MAN
1156 DATAA GAS STATION ATTENDANT,A WINDSHIELD WIPER
1157 DATAMANDITORY SEAT BELT LAW,RESTRAINING ORDER
1158 DATAHOW TO INCLUDE A HORSE IN YOUR INSURANCE POLICY,PUT A RIDER ON IT
1159 DATAWHERE THE FARMER FELL ASLEEP,IN YAWNDER FIELD
1160 DATAWHAT THE PLUMBER WANTED TO DO AT THE BEACH,TAKE THE PLUNGE
1161 DATAPERIOD FROM ABOUT 500 TO 1500 AD,MIDDLE AGE SPREAD
1162 DATAA CERTAIN BIRDS BAD HABIT,A CARDINAL SIN
1163 DATAWHAT IT COSTS TO HAVE A HOUSEKEEPER,A TIDY SUM
1164 DATAWHAT A CERTAIN FRUIT SAID TO ANOTHER,WE MAKE A FINE PEAR
1165 DATADORYS USED BY CAVIAR HUNTERS,ROE BOATS
1166 DATAPICNICS BY THE HIGHWAY,ROADSIDE DINERS
1167 DATAA SPACE AGESNACK,MICRO CHIPS
1168 DATAFOUNDRY WORKERS JOB,HE STEELS FOR A LIVING
1169 DATAHOW YOU TIME A MILKING MACHINE,WITH YOUR QUARTS WATCH
1170 DATAA PLANTATION MAID,A CROP DUSTER
1171 DATAMISSION CONTROLS JUNCTIONS,CALLING THE SHOTS
1172 DATAWHAT THE INUIT HUNG FROM THE IGLOO,A SNOW MOBILE
1173 DATAWHAT THE 2ND PLACE FINISHER IN THE HILL CLIMB WON,A RUNNER UP PRIZE
1174 DATATHE RESULT OF IRISH LAWN BOWLING,THE WEARING OF THE GREEN
1175 DATAHOW TO MAKE A COMPLETE PIG OF YOURSELF,GO WHOLE HOG
1176 DATASHE WORE UNDERWARE ON HER FEET,SLIP SHOD
1177 DATAWHY KIDS ARE STAYING IN SCHOOL,TO BE UP TO KNOW GOOD
1178 DATAVIOLIN BOWS,FIDDLE STICKS
1179 DATAWHAT A LAZY SAILOR IS,NOT WORTH HIS SALT
1180 DATAAVOIDING A SLOW TRAIN,GIVING A WIDE BERTH
1181 DATAPOLITICAL DANCE,THE CABINET SHUFFLE
1182 DATAA CERTAIN FRUIT IS GONE,THE BANANA SPLIT
1183 DATAWHY THE LIBRARY CRIED,BOOKS WERE IN TIERS
1184 DATAA VERY FAST CARPENTERS TOOL,A JET PLANE
1185 DATATHE DAIRYMANS ROUTE,THE MILKY WAY
1186 DATAWHAT POOR HUNTERS DO,SHOOT THE BREEZE
1187 DATAWHAT PLANTS DRINK,ROOT BEER
1188 DATAWHAT THE CONCEITED MUMMY WAS,WRAPPED UP IN HIMSELF
1189 DATAWHY J R WAS IN COURT,TO SUE ELLEN
1190 DATAHOW YOUR SHOES COULD GET YOU IN TROUBLE,BY A SLIP OF THE TONGUE
1191 DATASECRETARIAL,A TYPE OF WORK
1192 DATAWHAT THE MOST DELICIOUS VEGETABLE DOES,BEETS THEM ALL
1193 DATAAN ARGUMENTATIVE ROAD,A DIVIDED HIGHWAY
1194 DATAWHY USELESS THINGS DON'T SINK IN CHINA,BECAUSE THE JUNK FLOATS
1195 DATACARS THAT TAILGATE,BUMPER STICKERS
1196 DATAWHAT THE DARK HORSE WAS,A NIGHT MARE
1197 DATAWHERE A CAT STANDS TO GET HER PAY,IN A FEE LINE
1198 DATASPLINTS,THE TIES THAT BIND
1199 DATAWHAT THE CLOCKMAKER WAS PAID TO DO,TO MAKE FACES
1200 DATAWHAT A TOURIST MIGHT DO IN EGYPT,PIER AMID THE TOMBS
1201 DATAOLD FIRE HORSE,SPARK PLUG
1202 DATAWHAT A GUITARIST HAS,A GUT FEELING
1203 DATAWHAT THE CONSERVATIONIST TOLD THE GASOLINE COMPANY,GET THE LED OUT
1204 DATAA BABY CARRIAGE IN THE DESERT,A DUNE BUGGY
1205 DATASIGN IN AN AUTO REPAIR SHOP,ALWAYS ON OUR TOWS
1206 DATAWHERE JUDGES HOLD OUTDOOR TRIALS,IN THE COURT YARD
1207 DATAWHAT IS A 300 LB COWARD AFTER A BIG MEAL,A STUFFED CHICKEN
1208 DATAWHAT THE MOST ACCURATE SCALE WON,A MEASURING CUP
1209 DATAWHY PLUGTOBACCO WAS NEVER POPULAR IN CHINA,FEW MEN CHEW
1210 DATAFORMER BRITISH PRIME MINISTER DEPRESSION,CHURCHILL DOWN
1211 DATASAYING GOODBYE TO THE ARCHEOLOGICAL EXPEDITION,BONE VOYAGE
1212 DATAGARDEN REPAIR,VEGETABLE PATCH
1213 DATAWHAT THE LOST COW COULD WIN,THE NO BELL PRIZE
1214 DATAWHAT THE MAN WHO SWALLOWED PAINT TRIED TO DO,INTERIOR DECORATING
1215 DATAHOW TO GET A DEGREE WITHOUT STUDYING,BUY A GIFT CERTIFICATE
1216 DATAGROUCHY NORTHERN MONARCH,ALASKA KING CRAB
1217 DATATWO HARD WORKING PEOPLE,A PAIR OF PLIERS
1218 DATAWHY A CERTAIN FISH HAD TROUBLE LISTENING,HE WAS HARD OF HERRING
1219 DATAWHAT A GUIDE IN A MOVIE STUDIO IS,A LEADING MAN
1220 DATALOTS OF COMPLAINTS,A BEEF HEARD
1221 DATAA BOXING MATCH APPROXIMATELY,JUST A BOUT
1222 DATAWHAT A CERTAIN ANIMAL NEEDS TO SURVIVE,THE BEAR NECESSITIES
1223 DATAHENRY THE 8TH'S FAVORITE VEHICLE,TUDOR SEDAN
1224 DATAWHAT THE LIONESSES CUBS WERE,HER PRIDE AND JOY
1225 DATASATAN,THE DEVIL YOU SAY
1226 DATAADVISE TO A DIETER,NO THYSELF
1227 DATAWHAT A BAKER RECOMMENDS FOR A GIFT,SAY IT WITH FLOURS
1228 DATAWHY THE NEW IMMIGRANT STAYED AWAY FROM HIS HOUSE,HE WAS HOME SICK
1229 DATAWHAT TO SAY TO A CERTAIN GOLFER WHO HAS HIT HIS BALL INTO THE LAKE
1230 DATAPLAY IT AGAIN SAM
1231 DATAA NEAR SIGHTED MONSTER WITH GLASSES,HE DOES NOT LOOK SO GOOD
1232 DATAREQUISITE OF A GOOD POET,TO BE WELL VERSED
1233 DATAWHY THE RUNNER HAD TO BE REMINDED,TO JOG HIS MEMORY
1234 DATAHOW THE STUDENT ELECTRICIAN SPENT HIS EVENINGS,DOING HIS OHM WORK
1235 DATAMAKING A FUSS ABOUT WEARING CERTAIN PANTS,KNICKER BACKERS
1236 DATAHOW DID 2 SILK WORMS FINISH THE RACE,THEY ENDED IN A TIE
1237 DATAA STINGY CIRCUS HUMAN CANNONBALL,A CHEAP SHOT
1238 DATAWHY THE WORKER IN THE JUICE FACTORY WAS FIRED,HE DID NOT CONCENTRATE
1239 DATAWHAT IS GREEN AND HAPPY,A GLAD GARBAGE BAG
1240 DATACONVERSATIONS ON THE FIRST TELEPHONE,CRANK CALLS
1241 DATAWHERE THE DRUNK WAS IN SAN FRANCISCO,HIGH ON A HILL
1242 DATAINSTRUCTIONS TO A LONG DISTANCE SEAMSTRESS,SEW FAR SEW GOOD
1243 DATAWHY DOES A SPIDER SPIN A WEB,BECAUSE HE CAN NOT KNIT
1244 DATAA CONTAINER FOR CARRYING DIAMONDS,AN ICE BUCKET
1245 DATAA LOCOMOTIVE WITH AN IDEA,A TRAIN OF THOUGHT
1246 DATAWHAT HAPPENED TO THE HEN THAT ATE THE RACING FORM,SHE BEGAN LAYING ODDS
1247 DATAWHAT THE POKER PLAYER GETS WHEN HE APPLAUDS,A PAT HAND
1248 DATATHE CERTAIN FAT BIRD THAT CAUGHT ALL THE WORMS,ROUND ROBIN
1249 DATAWHAT SMILES DO FOR YOU,INCREASE THE FACE VALUE
1250 DATAA HOTEL OF POUNDS AND OUNCES,A WEIGH INN
1251 DATALARGE RELATIVE,BIG BROTHER
1252 DATAINDECISION,UNDER THE WHETHER
1253 DATAHOTEL ROOM FOR A TEENAGE GIRL,SWEET SIXTEEN
1254 DATAGETTING A CERTAIN NEWS PAPER OFF THE PRESS,LET THE GOOD TIMES ROLL
1255 DATAA SLEEPING BAG,A NAP SACK
1256 DATAWHAT THE CATTLEMEN HAD,A BULL SESSION
1257 DATANOT A VERY GOOD GAME,BADMINTON
1258 DATAWHY SWEDEN DOESN'T IMPORT CATTLE,IT HAS STOCK HOME
1259 DATAHAVING A PARTY ABOARD SHIP,ROCKING THE BOAT
1260 DATAA SHARKS FAVORITE BREAKFAST CEREAL,CAPTAIN CRUNCH
1261 DATAA WESTERN JUNGLE CLUB,THE ALBERTA TAR ZANS
1262 DATAWHAT A CHILDS SECRET TUNNEL IS,A HOLE LOT OF FUN
1263 DATADUSTING THE BED ONCE A YEAR,SPRING CLEANING
1264 DATAWHAT A NONTALKATIVE TRAVELER DOES,GOES WITHOUT SAYING
1265 DATATELEPHONING THE DRAPERY DEPARTMENT,MAKING A CURTAIN CALL
1266 DATAWHAT SAILORS IN A MINE ARE CALLED,MINERAL SALTS
1267 DATAORIENTAL CHIMNEY,ASIAN FLEU
1268 DATAWHAT A CERTAIN TV HOST IS USUALLY IN,THE THICKE OF THINGS
1269 DATAWHY HOMES OF THE WEALTHY ARE SO TIDY,THEY HAVE IT MAID
1270 DATAWHAT A PODIATRIST DOES,CHARGES BY THE FOOT
1271 DATAA SATANICAL ACTOR,DEVILLED HAM
1272 DATAWHAT A CERTAIN CIRCUS STAR SHOULDN'T BE,A TIGHT ROPE WALKER
1273 DATATHE GOOD EXCUSE SIR LANCELOT HAD FOR KEEPING THE PEACE,AN IRON CLAD ALIBI
1274 DATAWHY THE DETECTIVE THOUGHT SO MUCH OF HIMSELF,HE WAS A PRIVATE I
1275 DATAASTRONAUTS KEEPING THE PEACE ON LONG MISSIONS,SHUTTLE DIPLOMACY
1276 DATADRIVING SCHOOL IN LOUISIANNA,TWO LANE UNIVERSITY
1277 DATAA MEXICAN REACTION TO INFLATION,MUST WE PESO MUCH
1278 DATAWHAT SAILORS DRINK IN HARBOUR,PORT WINE
1279 DATAA VERY GOOD MAGICIAN,A SUPER DUPER
1280 DATASIGN IN A DOUGHNUT SHOP WINDOW,OUR BUSINESS IS HOLE SALE
1281 DATATWO BIT TRIM,QUARTER ROUND
1282 DATADISPLAY FOR SPECTACLES,GLASS CASE
1283 DATAWHAT THE FRESHLY CAUGHT FISH WAS,UP THE CREEK
1284 DATAWHY AN INUIT DOESN'T KISS,HE NOSE BETTER
1285 DATAWHERE THEY TAKE CERTAIN SICK ARMY OFFICERS,GENERAL HOSPITAL
1286 DATAHOW LONG THE BULL STAYED IN THE PASTURE,FOR HEIFER AND HEIFER
1287 DATAWHAT YOU NEED TO GET THE SCENT OF A CERTAIN ANIMAL,A NOSE FOR GNUS
1288 DATAA PAIR OF CROWNS,A ROYAL COUPLE
1289 DATAWHAT THE OBEDIENT BELL DID,RANG WHEN IT WAS TOLLED
1290 DATAMATERIAL FOR A BIG MAN'S SUIT,BROAD CLOTH
1291 DATAWHAT SOME THOUGHT EDGAR ALLEN POE TO BE,A RAVEN MANIAC
1292 DATAIF YOU CAN AFFORD AN EXPENSIVE GRASS CUTTER,MOWER POWER TO YOU
1293 DATAHOW CARPENTERS ARE PAID,WITH SAW BUCKS
1294 DATAAN EVANGELIST BROADCASTER,A TV CONVERTER
1295 DATATHE TV EXECUTIVE DIDN'T UNDERSTAND THIS,WHAT MAKES THE NET WORK
1296 DATAWHAT SIAMESE PEOPLE HAVE,A STRONG FAMILY THAI
1297 DATAWHAT SUNTAN LOTION IS,A BARE NECESSITY
1298 DATAHOW TO TELL HOW OLD A PALM TREE IS,BY THE DATES
1299 DATAWHY THE HUNTER WAS ANGRY WITH HIS DOG,HE HAD TO POINT HER
1300 DATAWHAT THE POTTER HAD,A HIGH URNING POWER
1301 DATATHE DENTISTS ADVISE,BRACE YOURSELF
1302 DATAWHERE THE WEDDING PROCESSION AT THE DUDE RANCH WENT,DOWN THE BRIDAL PATH
1303 DATAAN UNPROTECTED TORONTO HOCKEY PLAYER,A LOOSE LEAF
1304 DATAFORESTRY,A BRANCH OF SCIENCE
1305 DATAWHAT HAPPENED TO JILL WHEN JACK FELL DOWN,SHE TURNED PAIL
1306 DATAHOW A MAN PAID FOR HIS NEW SHIRT AND PANTS,OFF THE CUFF
1307 DATAWHAT ALL THE PRISON ORCHESTRA MEMBERS WANTED,THE LUTE
1308 DATAWHY THE ELECTRICAL COMPANY SPONSORED THE TV SHOW,TO GET THEIR PLUG IN
1309 DATATAKING THE ROAD ON YOUR WAY HOME,HIGHWAY ROBBERY
1310 DATAEOF,EOF
2000 IFK=CTTHENPRINT"      NOBODY WILL GET ANY POINTS":FORT=1TO3500:NEXT:RETURN
2010 IFJ$=P1$THENJ1%=J1%+50:GOTO2050
2020 J2%=J2%+50
2050 PRINT"[147][144]"TAB(9)" D E F I N I T I O N [146]"
2060 PRINT"    ";J$;",YOU WILL GET 50 POINTS."
2070 PRINTTAB(12)"THE NEW SCORE IS"
2080 PRINT""TAB((40-LEN(P1$)-10)/2)P1$;J1%;" POINTS"
2090 PRINT""TAB((40-LEN(P2$)-10)/2)P2$;J2%;" POINTS"
2100 PRINT"";J$;" YOU WILL GET A BONUS QUESTION."
2110 PRINT"THE BONUS QUESTION IS WORTH 260 POINTS"
2120 PRINT"LESS 10 POINTS FOR EACH LETTER GIVEN UP."
2130 PRINT"   PRESS *F1* IF YOU KNOW THE ANSWER"
2140 PRINTTAB(9)"PRESS *C* TO CONTINUE":POKE198,0
2150 GETK$:IFK$<>"C"THEN2150
2160 GOSUB800:FORT=1TO4500:NEXT
2165 PRINT"[147][144]"TAB(9)" D E F I N I T I O N [146]"
2170 PRINT"";J$;" WILL GET"SC" BONUS-POINTS."
2171 IFJ$=P1$THENJ1%=J1%+SC:GOTO2175
2172 J2%=J2%+SC
2175 PRINTTAB(12)"THE NEW SCORE IS"
2180 PRINT""TAB((40-LEN(P1$)-10)/2)P1$;J1%;" POINTS"
2185 PRINT""TAB((40-LEN(P2$)-10)/2)P2$;J2%;" POINTS":FORTJ=1TO5000:NEXT
2200 K%=K%-1:RETURN
3000 PRINT"[147][144]"TAB(9)" [196] [197][160][198][160][201][160][206][160][201][160][212][160][201][160][207][160][206][160][146]"
3010 POKE53272,23:PRINT"[212]HIS GAME WAS CREATED BY: "
3020 PRINT"      [203][213][210][212] [211][195][200][210][197][201][206][197][210],[204][197][196][213][195] [193][204][194][197][210][212][193] "
3030 PRINT" ON MARCH 1983 AND IS BASED ON THE [212][214]    SHOW [196][197][198][201][206][201][212][201][207][206] AND IS PLAYED ";
3040 PRINT"THE SAME."
3050 PRINT" [217]OU WILL BE ASKED TO GIVE A LETTER AWAY AND TO TAKE A LETTER."
3060 PRINT" [201]F YOU HAVE DONE SO CORRECTLY YOU WILL  HAVE A CHANCE TO GUESS."
3070 PRINT" [215]ATCH YOUR TIME AS YOU HAVE ONLY 10SEC. TO GIVE OR TAKE A LETTER AND ";
3080 PRINT"45SEC.TO   GUESS THE WORD OR PHRASE."
3090 PRINT" [197]ACH CORRECT ANSWER IS WORTH 50 POINTS  AND A CHANCE TO PLAY FOR BONUS ";
3100 PRINT"POINTS.  [201]NSTRUCTIONS WILL COME LATER."
3110 PRINT" [201] HOPE YOU HAVE FUN."
3200 PRINTTAB(9)"PRESS *C* TO CONTINUE":POKE198,0
3300 GETK$:IFK$<>"C"THEN3300
3400 POKE53272,21:RETURN
3900 L=LEN(A$(N,1)):IFL<=32THEN4000
3910 FORT=32TO1STEP-1:IFMID$(A$(N,1),T,1)=" "THENT=T-1:GOTO3950
3920 NEXT
3950 PRINT"[149]  HINT [146][144] ";LEFT$(A$(N,1),T):PRINTRIGHT$(A$(N,1),L-T):GOTO4100
4000 PRINT"[149]  HINT [146][144] ";A$(N,1)
4100 PRINT"";N;A$(N,2)
4150 PRINTTAB(9)"PRESS *C* TO CONTINUE":POKE198,0
4200 GETK$:IFK$<>"C"THEN4200
4300 N=N+1:GOTO3900
6010 L=LEN(A$(N,1)):IFL<=32THENT=1:RETURN
6020 FORT=32TO1STEP-1:IFMID$(A$(N,1),T,1)=" "THENT=T-1:GOTO6030
6025 NEXT
6030 PRINT"[149]  HINT [146][144] ";LEFT$(A$(N,1),T):PRINTRIGHT$(A$(N,1),L-T):RETURN